0 POKE53281,0:FORA=0TO57:PRINTTAB(14)LEFT$("BLOCK BUSTERS[150][155][152][151][144]",B+14)
1 B=(B+1)AND7:NEXT:PRINTTAB(13)"[158]BY MARTIN GREIL":T=54273:POKET+23,15
2 POKE53280,14:X=1034:Y=15:P=1:V=1:W=1:POKET+4,51:WAIT56320,16,240:WAIT56320,16
4 FORA=1TO36:A$=A$+"[214]":NEXT:A$="  "+A$:PRINT"[147][158]":FORA=1TO6:PRINTA$:NEXT
6 POKEX+V+(Y+W)*40,87:POKEX+V+(Y+W)*40+54272,1:POKEX+Y*40,32
8 X=X+V:Y=Y+W:POKET,9*G:POKET+3,32:POKET+3,33:G=0:IFPEEK(X+V+(Y+W)*40)=32THEN16
10 G=1:P=P+1:IFF=1THENW=-W:F=0:GOTO14
12 F=1
14 IFP/150=INT(P/150)THENS=S-3:GOTO4
16 IFX+V<1025ORX+V>1062THENV=-V:F=0:G=4
18 IFY+W<1ORY+W>23THENW=ABS(SGN(Y+W-24)):F=0:G=5:A$="":IFW=0THENG=1
20 IFY=23ANDPEEK(56320)=111THENS=S+1:W=-1:G=3:REM"[192][192][192][192][192][192][201](C) BY MARTIN GREIL[213][192][192]
22 [139]S[179]10[167]6:"MID$TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null)
24 PRINTTAB(5)""P"PUNKTE     ALTER REKORD"H:WAIT56320,16,240:IFP>HTHENH=P
26 WAIT56320,16:S=0:GOTO2